home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wtj008.zip / PORTING.ZIP / SAMPLE.RC < prev    next >
Text File  |  1992-05-25  |  2KB  |  56 lines
  1. #include "windows.h"
  2. #include "sample.h"
  3.  
  4. MainMenu MENU
  5. {
  6.     POPUP       "&File"
  7.     {
  8.         MENUITEM "&About Sample...", IDM_ABOUT
  9.         MENUITEM SEPARATOR
  10.         MENUITEM "E&xit",            IDM_EXIT
  11.     }
  12.  
  13.     POPUP       "&Action"
  14.     {
  15.         MENUITEM "&Set values...",      IDM_SETV
  16.         MENUITEM SEPARATOR
  17.         MENUITEM "&Do It!",          IDM_DOIT
  18.     }
  19. }
  20.  
  21. AboutBox DIALOG 35, 44, 144, 70
  22. CAPTION "About Sample"
  23. STYLE DS_MODALFRAME | WS_OVERLAPPED | WS_CAPTION
  24. BEGIN
  25.     CTEXT "FORTRAN DLL Sample Program", -1, 0, 5, 144, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
  26.     CTEXT "Julian Templeman, 1992", -1, 0, 15, 144, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
  27.     CTEXT "Version 1.0", -1, 0, 34, 144, 8
  28.     CONTROL "OK", IDOK, "BUTTON", WS_GROUP, 55, 52, 32, 14
  29. END
  30.  
  31. SETUP DIALOG 18, 18, 142, 92
  32. CAPTION "Setup"
  33. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
  34. BEGIN
  35.     PUSHBUTTON "OK", IDOK, 6, 72, 33, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  36.     PUSHBUTTON "Cancel", IDCANCEL, 45, 72, 35, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  37.     EDITTEXT IDD_PARAM1, 83, 34, 26, 12
  38.     EDITTEXT IDD_PARAM2, 83, 53, 26, 12
  39.     RTEXT "First parameter", -1, 23, 36, 58, 8, SS_RIGHT | WS_CHILD | WS_VISIBLE | WS_GROUP
  40.     RTEXT "Second parameter", -1, 17, 55, 64, 8, SS_RIGHT | WS_CHILD | WS_VISIBLE | WS_GROUP
  41.     LTEXT "Enter two small integer values to be used", -1, 4, 5, 135, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
  42.     LTEXT "as parameters for Ackerman's function", -1, 3, 15, 137, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
  43. END
  44.  
  45.  
  46. DOIT DIALOG 31, 45, 162, 53
  47. CAPTION "Ackerman's Function"
  48. STYLE WS_POPUP | WS_CAPTION | WS_VISIBLE
  49. BEGIN
  50.     PUSHBUTTON "Do It!", IDD_DOIT, 13, 6, 53, 12, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  51.     PUSHBUTTON "Cancel", IDD_CANCEL, 77, 6, 53, 12, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  52.     LTEXT " ", IDD_MSG, 10, 35, 144, 9, WS_CHILD | WS_VISIBLE | WS_GROUP
  53.     CONTROL "Messages", 103, "button", BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 5, 24, 154, 22
  54. END
  55.  
  56.